LABEL O000OO00OPRIMEHO017blOOCC tX OB JECT/KE At) > F i LL SUURCEFlLEsSYMBOL/COOL«-OQ*0000000 OBJECT /READ 
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y_ 



S SET OMIT 



STARTER DECKS 
MAY 1969 BY P.E 

co n u 



$ 

.A. 



POP OMIT 

SET OMIT s NOT(COOL) 



B-5500 COLD START PROGRAM 



000X0000 

00020000 

.00U30Q00 



* POP OMIT 
COMMENT I * 



B-55O0 COOL b r Af?T PROGRAM 
TIT L E! B55QQ/ B 570 Q t UHK. Xl V S YSTEM RE L E A S E 



00040000 
00040050 
00Q50000 



OOOoOOOO 
00060050 
0060 1 00 



* FILE IDS SYMBOL/COOL TAPE ID* SYMBQL2/F JLEOOO * 00060101 

IS PROPRIETARY TO BURROUGHS CORPORATION * 00060102 
BE REPRODUCE D * U S ED* OR DISC L O S ED " * 00060103 



THIS MATERIAL 
AND IS NOT TO 



* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE 

* WRITTEN AUTHORIZATION OF THE PATENT DIVISION 

* BURROUGHS CQRPPiRATIJN, DFTKair. MICHIGAN 

* 

* 



OR UPON 
OF 
46232 



* 



00060104 

00060105 
00060106 



COPYRIGHT 
AA120206 



CO 1971, 1972 
AA3A6657 - 



BURROUGHS CORPORATION 



BEGIN DEFINE P=POLI Sh** M.MEMORY* ; 

DEFINE DEFAULTUIRECT*«5Q0*/ 
DEFINE ,*ERNELAnR»l»; 



jlL 



00060107 
00060108 



DEFINE MEMOI$KADR»20#; 

DEFINE ESPB0TTOMs50#; 

DEFINE SCNCS^Nl )sSCAW(CAftDiar.Nnit. 



00070000 
000/1000 
000/2000 



000/3000 
00074000 
0Q075Q0Q 



NAAME^l** NLMBER=2*> DELlMsO*, PERCENT=4#; 

REAL C.ORE#READBACK, LOADER »J#I,D I SK TOP »CARD,TYPE»MN»YR; 
REAL FSUTFMF? 



* SET 

i po p 



OMIT s 
REAL 
O MI T 



COOL 
LOW ADR i 



00076000 

oooaoooo 

Q0QB1000 



ARRAY INFOC*]»SHARC*3'BUFFtHC*3'TEMMPC*J*FILEXC*3j 
ARRAY FlLEH[*3»LABELSt*J#ZEH0[*],Ri[*Ji 
^_ INTFfiFR QXd nAnFp*<?X.XY«NjT»K.SY.SNn«Mlirtwp3l 

REAL treal»t; 
* set omit * notccool) 

BQQLFAN 1 RD t SkFOTHG .H ARn » HARC .RC ^FNtflFHR i 



00082000 
00083000 
00084000 



00090000 

ooiooooo 
ooiaoonc) 



00120010 
00120099 
QQ1 2 . Q 1QQ 



POP OMIT 00120101 

LABEL RE AD C A RO* FENCE #£Su#OATE ,F ILE * USE*D*A*DKB* ST0P*ExlT, T iMEROOl 3000 

» FRRflR »STARTf TART >QTR&CT> DIRE CTORY TOP OOUOOOQ 



» MRCLE AN #XL0ADED»HAN0LE, SYSTEMS) 

SET OMIT * NOT(COOL) 
nFFINF BFMn\/EtRFtonVg1 ^flF fllN RFMQtfFR(RF*nVF1 H 



GO RFMOVED END*; 



00150000 
00160000 
001 690 00 



label quit*removed*punt*arnu*lp*on; 

REAL HDRO*RTl; 

DFFTNE RFCST2F«HRR0.C1 > 1 4 1* » Bl QCKSI ZEsHHHfl , { 1 5 t\ 5 ]« » 



recsperbl0ck«h0r0,c30*12 3#aseg3perel0ck*hdh0.c42!63#j 
boolean firstcarc; 
pop omit : 



001/0000 
001/0010 
001/0020 



001/0030 
00170049 
00170050 



label remcd,memdump*bombout#8Em,recdnstr*glqb; 001/0100 

SWITCH T YP ESW I TC H « *ERRQ«* F ILE* FENCE* STOP *£SU* USE* DATE* USE' USE 00180000 
iniRFCTtnlREcTn RYTnP»SY»TFtnStRFMP.n.MFMnuMP omsonnn 



,REM,RECONSTR#XLOAOEOi * SAVE FOR LAST 
ARRAY MONTHSC123* 0* 31* 59* 90* 120* 151* 181*212* 243* 273* 304* 334 J 
BOOLEAN SP0l0,Plin»P3T0,PRlNTKAIT; 



DEFINE KERNEL* 16#) X 
ARRAY FlRSTtl73l*0* 
"FlLEOflOO'Lt. 



SHOULD BE NUMBER 0F FIRST rtURDS - 1 



00191000 
00200000 

00201000 



"FENCECOQ"* 
"8T0P0CC0"* 

"ESuoonoo*, 



00201100 
00210000 
00220000 



00230000 
00240000 
00250000 



|4K 
147 
4(1 
•19 
W 
J I 
W 
53 
H4 
'.5 



h 
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"USE0OCC0"i 

"DATE0OOO" 

"TYPEQCCO" 



"QPTNOOOO' 
"DIRECTCO' 
-nRETRYTP' 



"SYSTEMSO" 
"REMOVECD" 
"MFMnUfPn" 



"REMOVEFO" 

"RECONSTR" 
««.onnnnnn" 



array upti0ns[54] «■ 
"draoocco" 
"orroiicoo" 



"BOJOOCCO" 
"EOJOOCOO" 

w nP£Noncn w 



"TERMNATE" 
"OATtOCOO" 
"TIMFOCOO" 



"0NE8REAK" 
"AUTOpRNT" 
"CLEABWRS" 



"DlSCQNDC" 

"CMPLFILE" 

"CLnSECCO" 



w ERRORMSG H 
M RETOOOCO M 
W LIBMSGOO W 



"SCHEDMSG" 
"SECMSGCO" 
" nSKTQ GCQ" 



•♦RELTOGOO" 
"PBDREtOO'' 
"fHEfKOnfl" 



"DISKMSGO" 
"DlSMLCGO" 
"LlBERRfifl" 



"PBDONLYO" 
"5AVEPBT0" 
" RSMS fiQnn" 



"AUTOUMO" 
"RNALLOCO" 
"C Q OFOLA Y" 



"CQRESTGO" 
"OATAOLAY" 

" HA LTonnn" 



"REMBTEOO" 
"CEMESSOO" 
"BATCHZlP" 



"NQBATCHO" 
"STOPTEST" 

"PNCHL CC K " 



"CDONtYOO" 
"PKTONLYO" 
"SEPARATE" 



"AUTQGEOO" 

*MQ03IGS0 W 
"AUTQMESS" 



00260000 
00270000 
0Q2H000Q 



00290000 

00300000 
00310000 



0C32000C 
00321000 
0032U0C 



00321200 
00321300 
QO33QQ00 



%H7> 



USE 



DRUM 
HHUM 



X43 



00340000 
00350000 
OQJfoOQOG 



X42 
%41 

X40 



X39 
X38 
X37 



X36 
X35 



X33 

X32 

-X3-4, 



* 30 

X29 

X2.6 



%27 
X26 
X25 



TYPE FTt £ OPEN 



00370000 
00380000 
00390000 



CALL TERMINATE PROCEDURE 
INITIALIZE DATE e H/L 
INITIALTZF TIMS. 9 H/l , 



Q040QQ00 
00410000 
QO^OQQO 



USE ONLY ONE BREAKOUT TAPE 00430000 
AUTOMATICALLY PRINT PgT 00440000 
CLEAR RRITF READY STATUS P TERMINAL rmasnpnn 



iHlTE.OI.SCt CQOE ON TERMINAL 00460000 
TYPE WHEN COMPILER FILES OPEN & ClOSE 00470000 
TYPE F II j CI, OSF 004H0000 



ERROR MSGS WHEN PRQGR RECOVERY USED 

TYPE MT RETENTION MESSAGES 

TYPE LTBRARY MESSAGES — ^ 



00*90000 
00500000 

nnsioooo 



TYHe SCHEDULE MESSAGES 

TYPE FILE SECURITY MESSAGES 
PHLVFNT I/O BPLOW USFH DISK 



ARE A 



PREVENT OISk RELEASE STATEMENT 
PRINTER BACKUP DISK RELEASE 
CHECK MFMnRY LINKS ; 



00520000 
00530000 
QQ54QQ QQ 



%24' TYPE DISK ERROR MESSAGES 
X23 DISK LUGGING 
J£2 SUPPRESS LlBRAHY F RROR MESSAGES 



00550000 
00560000 
00570000 



121 GO TO PRINTER BACK-UP ONLY 
X20 OONT STACK FILES QN P8 TAPES 
JLL2 PRINT SET OR RESET MFSSaEFS 



00580000 
005*0000 

oo 6 oooQn 



X18 NO USER DiSK WILL UNLOAD 
X17. «UN ALL DeCKScShAReDISK) 
JLlfl OLAY CQOE Tl ) E CMUUXMFM ) 



EXPIRED 



00610000 
00620000 
oo63onnn 



00640000 

00650000 
QQ660QQQ 



X1S JOB CORE ESTIMATES(STATISTICS) 00670000 

X14 OLAY DATA TO ECM(AUXMEM) 00680000 

JLL3 MAKES SYSTM HANG QN«SHQULO HL MSG 0G69OOOn 



*12 ENABLES DATACCM(TSS* JF NOT DCP) 00700000 
Xil LIBRARY MESSAGES FOR CANOE 00710000 

JLLQ ZIP riFCKS TQ RUN UN H MCMC SH AREQISK ) 00720000 



X9 CONTROLS RUNNING OF BATCH JOBS QN 
X8 INHIBIT TAPE ««ITE FAILURE TEST 

Jtl LOCK PUNCH AFTER RELEASE 



TSS 



X6 RUN WITH LDCNTRL ONLY 
X5 RUN rtlTH PACKETS QNLY 
X4 SLRARAT ES PRINTOUT 



00730000 
00740000 
0075Q00Q 



X3 AUTOMATIC INITIATION OF CANOE 

X2 MQOEL III I/O CHANNELS 

XI SMALL MESSAGES; IF NOT S.ET 



00760000 
00770000 

oo7aoooo 



00790000 
00800000 
00810000 



17 
IB 



19 
20 



22 



24 
25 



27 
28 



29 
30 



31 



34 
35 
36 

37 ~ 



39 



42 



47 
48 



49 
50 
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54 

55 
56 



ARRAY 



"QPTNOCCn", 

"4-oooooco"; 

MfS,SAfiFC75H* 



xo 



* SET OMIT * 



"DIRECTRY 1 

COOL 

w BUT IT- ' 



00620000 

00870000 

nnaaoooo 



pop 

SET 



OMIT 

omit = 



00890000 
00900000 
onvionnn 



NOT(COCL) 
w CHECKC+"* 



S POP OMIT 



00910050 
OOS<20000 
0QV30QQQ 



"INCORREC'% 



It 



ERRO'S 
"R *■ % 

" n 1 R e c: t n r " ^ 



00930050 
00940000 

00950000 



"YTQP NOT"* 
" SET* "# 
H i, OAOFR I "* 



00960000 
00970000 

novftoooo 



J SET OMIT 



"OADEO AL% 
"READY* "» 

s NnT(rorL) 



00990000 

01000000 

01010000 



s 



POP 



OMIT 
OMIT 



"COOL STA"> 
NOT C NOT CIIQt.3 



01020000 
01030000 
01031999 



* POP OMIT 



"COLD STA", 



01032000 
01032001 
01012999 



"RTING . . . "*" E NT E R flK"t" TU C O N T" . " I M ,J £ , * , . % 



"NEED VAL"# 
"ID ESL C"> 
*ARD» — "»"£NTFR 



01033000 
01033001 

010 3 000 



OK"; 



"DRCTRYTP"* 
" CARD NO"* 
"T FIRST*-"* 



TO RE*U"»"VE. DECKS"*",* 



01034100 
01034200 
01034300 



"DUPLICATE 
"E DRCTRY", 
"TYP CARD"* 



01034400 

01034500 
010,14600 



"-MUST RE"» 
"START* "* % 31 
"HEMniJKP "*"TflQ LAfUi" 



01034700 
01034800 
0lUiii9GC 



"MEMOUMP 
"ENTER 0K"# 
J! iJLt. 



*"0VERWRIT" 
" TO H£CO" 



" *RP8= "»" 
"SEGMENT "*"^ERD 
"OlRECTQR" > "YTnP 



*SPB" 
MAY" 
MAY" 



"BAD OIRE"#"CT VALUE" 
"CHEEK n^.wci AREn F" 



"NO 



OF E"*"SUS TO B" 
M **«-*4-4.«-* M ; 

AHRAY LQADBUTT0NC15]* 



"F-NDT 1 Q"*"Anrn* ". *a? 



"TTEN BY 
"NSTRUCT 

> B L KS 7* 



"/"KERNEL* "* X36 



01034920 
01034940 
010 349 50 



*#«bad 



« _ 



"f" 



HEAD"#"ERS.* 
iRE%"CS2» 



BE 



*"* 

BAO*"* 
B A D * " * 



01034960 
01034970 
01 3 49 90 



45 
53 
-56- 



"REM0VE0*"# 
»:».-■■■■ « 



01035000 
01035010 

01035020 



X 59 
* "# * 62 

"ILE ADnR" « " &SSE S* 



% 6 5 



"E CHAiNG£"*"D FROM "»' 



01035030 

01035040 

-Q.1 Q3 50SQ 



0CTO44iO0040l570421# XI 20 
0CT8157000000104411* X 2 2i 
OCT02110Q144131QQ55 * X 3 22 



"*X6901035060 

01039000 

Q104QOQQ 



OCT^15512450000^^25> X 4 23 
OCT0060U13101600064' % 5 24 
nCT444l6l04025l0a05* % rt ?«S 



01050000 
01060000 
1 07 0000 



0CT010002344J310055* % 7 26 

0CT00620H441310055# X 8 27 
0CT«0660l34<H3l0Q5S* X 9 30 



oioboooo 

01090000 
QUOOOOQ 



OlllOOOO 
01120000 
QU3QQ 00 



■1': 
4fi 

47| 
49 



52 
S3 



±v 



10 

12 
13 

IS 
16 

> » 
18 

19 
| 20 

21 
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( 23 

24 

26 

I » 
27 

28 ~ 

I w 

30 

31 



32 
33 






CD 



34 

I 35 

36 

37* 
I 38 

39 

W 

41 

42 

43 

44 

45 

46 

I f 
48 

49 

I W 
51 

52 



| S3 

54 



55 

I 56 



OCT007iiOl 5441310055* % 10 31 
OCT00760i744l3i0055' i 11 32 
nCTbi4uonf)04-/7r;n?nn» t 1? aa 



BOOLEAN STREAM PROCEDURE OKCB); VALUE tii 

begin s.h-b; l* if sc=" " then begin si;*si+i; 

I F SCs"Q" THEN Sl l »Sl+1 E L SE (,, Q AW A fi 



0CTO44HOO4O1OQ4441* % 13 34 

0CT92530l0«42O527405# X 14 35 

nrTTaoiunsiQir.oaau/ t_4j t* 



oiiaoooo 

01150000 

01 looooo 



01170000 

onaoooo 

OllVQOOQ 



go l end; 



fnu 



IF SC«"K" THEN TALLYl-U 
AWAY»0K«*TALLYJ 

OK? ; 



01195000 
01195100 
01195200 



REAL STREAM PROCEDURE DECICV); VALUL V; 
BEGIN SMsLOC V; OIlaLOt DECl; DS:*a DEC* 
EMI DECi ; 



01195300 
01195400 
0119S500 



REAL STREAM PROCEDURE SEARCHC CARD, FIRST *N >; VALUE CARD,N, 
BEGIN LABEL L'EXIT; 

s psc a rd; sii»si-Nt n i ii uo c carp* ns i g B Li T"0"; 



01195700 

0H95600 
01 1 95900 



■■ DII.*LUC CARD; N(DS5sChK); 
L! Si <- FIRST; Si «• SI+8; TALLY * TAlLY + i; 
IF SC g "<■" THEN &E6IK T ALL Y ft C * B O TO 



01200000 

01210000 
01220000 



di «- first; di «- Di+e; first I on 
s-i*"Loc card; 

IF ft SC NFQ PC THEN »0 I,; 



e xit end ; 



01225000 
01230000 
01 240 



REAL 



EXlTlSEARCH <- TALLY; 

end; 
s trfam pr q cfn i re .s c a nc l s t a dr * i (jkf n u 



01250000 
0126000C 
01270000 



begin label l#xxit; lucal sv*3vr* 
dp»tqken; os»»8lit ,, oooooooo«; di'«oi 

ST tat.STAnRt STiaSi+sl qi»Sf!i 



01280000 
012*0000 
01290100 



•8, 



TALLYJs3; SCANJsTALLY; 

IF SC*" " THEN BEGIN SH*5I + Jf 

IF SCBALPHA THEN 



01290200 
01290250 
01290300 



gu l; end 



IF 



SC LSS 
TALLY t 
7(DsicrHR; 



"0" THEN BEGIN % ALPHA 
7; DH*OI + l; 



012*0400 
01290500 
01290600 



TALLYl»TAl_LY»A3i IF SCsAIPHA THFN El SE JUMP Out, J 



SVUTALLY; SV(USt=LIT" ")* 

TALLYisi; scaim:stally; 

-EitQ 



01290700 
01290800 
m2gnonn 



ELSE BEGIN * NUMBER 
TALLYJcO; 
7CSll«Sl4H TALI Yl aTALl y+i; 



01291000 
01291100 
01291200 



IF SC*ALPHA THEN 

IF SC GEO M 0" THEN ELSE JlMR 

else jump qui); 



01291300 
01291400 
01291500 



OUT TU XX1T 



SV1«TALLY; Sli«Sl-SV; 

ost»sv oci; 

TALLYI»2; SCANtsTALLYi 



01291600 
01291700 
01291800 



IF SC« 



ELSE 
THFN RFGIN 



END 



01291900 
01292000 
01292100 



sii*si+i; tall*w; oi*»oi*i; 
8(if sc neq "•"• then begin 0ss»chrj tally! «tally+63; 

■ ELBE BEfllN SUtSUlJ JUMP OUT; END M 



01292200 
01292300 
1 2924Q Q 



ENO 



IF TOGGLE THEN GO XX1T; 

svi*tally; svids»*lit" "); sv'rissi; 

SIlgLOC SVi Si:aSW> IF SC«"7" ThEN 



01292500 
01292600 
01 392 7 00 



GO XXIT 



END ELSE BEGIN 



ELSE 
SI»« 



BEGIN TALLYl«i; 

end; 



scani«tally; 



01292800 
01292900 
01293000 



01293100 
01293200 
01293300 



JlM| 

'■"'I 
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44 

.- 

ia| 
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n 



*r 
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8 
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32 

33 

34 

35 

36 



37 
38 
39 

40 



41 

42 
43," 



45 
46 
47 
W 
49 
50 
51 
52 
53 
54 
56 
56 



IF SCs"*" THtN bLGIN 

gu ax it; em; 

OpsQI+7* ■ — ■ 



tally:=4; scan»=tally; 



DSJaCHR; 
TALLY»=o; 

FNO? 



01293400 
01293500 
1 2 9 36 00 



scanjsTally; 



XXIT: SVl-Si; Sis^LUC SV; UI»=LSTauk> Db:=rtUS; 
END; 

RLAI STREAM PRHCFnilKF lSnLATFCr r AWD)i 



01293700 
012V3800 
Ql2v3900 



BEGIN LABEL L*A,x*E) 

local t; 

SI «• CARPi SI » 



01294000 

01294100 
01300(100 



si+5,? si *■ sc; 



if sc » - " then begin si * si + i; v>u to l end' 

IF SG s »"» THEN 
— B EGIN SX » S ltl? 



01310000 
01320000 
01330000 



17(SI *Sl+i; TALLY ♦ TALL^+i; 

IF SC = "»" THEN 
HiLtiTNi T «■ ST; QT » 



01340000 
0135U000 
01 160000 



t; ns <■ i, it 



JUL 



01370000 
01380000 
01390000 



ENU 
TALLY fc Q.i GU 



JUMP 

; )i 
tg x; 



OUT TO X 



end; 
if sc * alpha then begin 

l7<Sl»Sl + li TALLY *■ TALLY*!? 



01400000 
01410000 

014200 



-GU 



IF SC = ALPHA ThtN GO 
JUMP OUT TO X/ AJii )j 

to e; 



to a; 



01430000 
01440000 
01 45 0000 



END ELSE BEGIN SI 
XI ISOLATE ♦ TALLY; 

. T » SM 



* 51 + 1; tally «• i end; 



01460000 
01470000 
014H0000 



SAVE 



di «- card; si ♦ LQC t> ds «■ WDS 
end; 

PROCEnURF SPFCTAlfCii VALUF C # REA L C,i 



01490000 
01500000 

oisionnn 



BEGIN IF ISOLATECCARD) t 1 THEN GO TO EHRQR; 

STREAM(C5CARD); 
BFfilN SI «• CARn; ST «• SI»H 



01520000 

01530000 
01540000 



01550000 
01560000 
0157000C 



di <■ loc c; 01 «■ 01+7; 

IF SC * DC THEN TALLY <■ 

C * ta lly ; 



IF P 



end; 

THEN 



01580000 
01590000 
Q16QQQ0Q 



go to error; 



end; 



SAVE PROCEDURE IOERR(IUD); VALUE IUU; REAL I00; FORhAROi 
SAVE REAL PROCEDURE EOM; FORWARD; 



01610000 
01620000 
01630000 



SAVE PROCEDURE H AI TFORPR INTERFIN ISHCU ); VALUE U* REAL U> 

BEGIN PRlNTMAIT!"T9UEi 
. 00 UNTIL FQM»U; 



01640000 
01630000 
01651000 



01652000 
01653000 
1654000 



printhait;=false; 01655000 

END; 01656000 

5AV F PROCEDURE I Q( ADDRESS. I OP J 1 VAlUF ADDRESS* I UP; REAL, ADDRESS, IPO; 01660000 

BEGIN REAL T; 01670000 

LABEL L; 01680000 

IOD * ADDRESS INX IQD/ . , '01690000 



l« p c c I o o ] # 1 1 o ) ; 

T «• eom; 
if T.c3n;i] ? 



. T HEN 



IF QX THEN GO TO 
IF ADDRESS i THEN 
IF T. [26141 i THEN 



L ELSE UX *» 2; 



01^00000 
01710000 
Q1 7 2Q0QQ 



01/30000 
01735000 
01700000 



ill 

141! 



I&3 



2 
3 
4 
5 



12 
13 
14 
16 



16 
17 
IB 
19 

20 
21 



23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 
37 " 



39 
40 
41 
42 



45 
46 
47 
48 



49 



52 

I S3 

54 

55 

i 56 



IF T,C2V:iJ AND T. C3:5]=6 AND M [ AQOhiESS 3*040 

THEN BEGIN 
-aX-AL)UREJh3 L=jOi , _. : 



M[AD0RESS + U8*0; 

GO L/ 
-LNO 



ELSE IF (T, [3553 = 22 OR T 

THEN IF T. 127111 
, THFtt B E G 1 i\ 



L_JS3 S 26) 



WAjTF0HPRlNTERFINiSH(T.[3l5])J 

I0U!»0<lTt3:3l53*lCl8:47llJ 

jj C3cr_-i^i ; q 



-E__E- 



go l; 

END 
WAlTFUKPRTNTEHKINlbHtTtf 3153 ? 



ELSE IF T. 12911) AND 
MtAD0HESS3*0 

THFM 



T,(3*5J«iO AND 



SAVF 



else olgin ioerkuuu); go l; end; 
end; 

procedure SpnI\rUTcnHlcH); value khich; InUGFR WHlCHJ 



BEGIN 



IF SPOIO THEN 
IQCMESSAGE INX- 






-R«;fuHiCMi.ft7anonQQOQQnQQOQjtwMTrMr?aii t ii);fl 



END SPQlNOn; 
DEFINE KEYINCKEYIND-SPOINOUTCNABSCKEYINU J#; 
DEFINE SPOUTsSPOlNOUT<» 



SAVE PROCEDURE IOERR(IOD)/ VALUE 1 01); REAL IQDJ 

BEGIN REAL T; 
lOT) «• IQQ.C3I51I — — 



IF 

IF 

_L£_ 



100*30 
lOD^lO 

inu= 



THEN 
THEN 
TH EN 



"SPU" 
" C H A " 
" DM" 



ELSE 
ELSE 
ELSE 



IF 

IF 

AIL 



I0D*22 
I0Ds26 
T OD" 4 



THEN 
THEN 
THEN 



"LP A" 
"LPB M 
"OftA* 



ELSE 
ELSE 
ELSF 



"xxx"; 



stream(t*a«-cmessage[4jjj; 
begin si «- lgc t; si 
S PQ UTm ; 



<- si+5; os «• 3chr; end; 



IF IQD »10 THEN 

BEGIN DO UNTIL PCRRRI. C24 * 1 3 
00 UNTIL PCRHR).C24M3J 



9 Oj 



751000 
752000 
7 5 3000 



75400a 

735000 
756Q0Q 



757000 
756000 
75900,0 



760000 
761000 
762000 



763000 
764000 
765000 



767000 
768000 
769000 



770000 

850000 
tiblOOO 



852000 
853000 
8 540 00 



855000 
856000 
6 57000 



860000 
870000 
890000 



900000 
910000 

y< oooo 



921000 
922000 
930000 



Vi*0O00 
950000 
960000 



970000 
980000 
990000 



ENO ELSE 
IF IUD LSo 



22 THEN GO BQM60UT; 



eno iqerr; 



02000000 
02000100 
02020000 



SAVE PROCEDURE DISKI0(A#C>; VALUE Ai 

array cc*3j 
real a; : : _ 



02030000 
02040000 
02050000 



BEGIN BOOLEAN K; 

C »= C INX NOT O; 
I F RU. A, C . 1 I 13 THFN 



A i" AflS (A),? 



02060000 
02070000 
02080000 



STREAM(A*X«.FLAG<C)); 

BEGIN SI * LOC A; OS <- 8 DEC ENOi 
TF R THFM trif fi, PI 403601401 QOQOOftNU WW HS T 8 i 36 ft 3 



02090000 
02100000 

Q211QQQQ 



BEGIN 



_CCNUM«OS + 29)0IV 3Q )[ 27 J 42 l 63 ) ELSE 

iGrc»Pi4o36oiooiooo'oo>'; 



02120000 
02130000 
0214QO00 



MCREADBACK3 «• MCC); 

I 0(REA0BACK#? 140 360 140100000)/ 

S TR FAH(RrA nB ACM* » r b1 H iC C )3 J 



02150000 
02160000 
Q 2 1LM M 



\A 



4-1 



52 



h 



10 

11 

12 
13 
14 
15 



16 

1 ,7 
18 

19 

I 2 ° 
21 

22 

i 23 

24 

, 26 
27 
28 
» 
90 
31 
32 
33 
34 
35 
36 



37 
38 
39 
40 



41 
42 
»3 



45 
46 
»7 
48 



49 
50 
51 
52 
53 
S4 
56 



BEGIN si «- reaoback; si - si + e; 

5C1F 4ft SC * DC THEN TALLY 
R&ADBACK «• TALLY? , 



01 «■ ui + a; 



end; 



end; 
if P 



0,2180000 
02190000 
02200000- 



THEN IQEHRCM4Q0OOO0QQ0OOOO); 



end; 
save real procedure scanfcgrdc table ) ; 
be g i n r e al t; 



02*10000 

02220000 
02230000 



ARRAY TABLt[*.j; 



02240000 
02250000 
Q2 «!6 000 



end; 



ti»if(mccardj eqv 0>*fcut then kernel else isolate (card j ; 02270000 
scanW6Rd*«if tskernel then t else searchccard»table,T); 02230000 

: : — : 022900QQ 



SAVE REAL PROCEDURE SCANUMBER* 

BEGIN REAL H 
T » ISni, ATE (CA RD ) i 



streamcr«-o»t»caro); 

begin di«-di-t; card 

Si <• CARB8 



02300000 
02310000 
Q?32Q000 



01 



CI 
DS 



loc r; 
t oct; 



02330000 
02340000 
02350000 



e nd; 



end; 



SCANUMBER * P; 



02360000 
02370000 
02380000 



* SET OMIT * NOT(COCL) 
SAVE BOOLEAN PROCEDURE LOOKFORC Ll ' L<2 ) i VALUE 
BEGIN REAt T? LARFI XMT? 



02390000 

02^00000 

.02410000 



Ll'L2; REAL H'L2* 



FOR I«*0 STEP 2 UNTIL RU UU 

IF (Ll EQV RTC13)»N0T OR KTC11 LSS THEN 
IF fig FQ\i RTr^niaMOT PR HTfi + l'' LSS n 



02410500 
02411000 
Q241UQQ 



THEN 



XXIT: 



BEGIN LOOKF'ORIsTRUE* I'sRTi; GO XXiT; END. 



024H200 
024U300 
0241 UOO 



e nd; 



* POP OMIT 
X 

SAVF INTPfiFR PROCFDuRE PACKER. 



02411500 
024H600 

024 11 7 



BEGIN/ 

STREAM 
RFGTN 



02411750 
024U800 
02420000 



CAl*[BUFFEUC93 3*B«atPACKER]); 
ST }g A? SI t= Si t Hi 



end; 



DI := a; oi »= DI + 6; 

4(SKJP 3 Sb; 3 C I F SB fHEN 



02430000 
02440000 
03450000 



DSt*SET ELSE SKIP DB;SKIP 



% 
S AV F 



eno; 

procedure loaders; 



02 4 6 OQO 

SB)); 024/0000 

02 48 0000 



BEGIN LABEL TOPPER* NXTC8D#E*IT; 
INTEGER N'SIZE; 
IF CTYPE»KERNEL AND I, A pi ft 1 



02490000 

02500000 

-02510000 



OR CTYPE*KERNEL AND ( LOADED ,t 46 $ 13 > ) THEN 
BEGIN SP0UTC9); 
GO BQMBOUTF , 



02520000 
02521000 
02530000 



TOPPER! 



end; 

if type neq kernel then go nxtcro; 

STRE A M ( Bti [B U FFER 1 1 3 3» A»*N 1«6UFF £ R - C91 ♦ C 6 t 91 » 



02531000 
02^40000 
02550000 



D*PACKER INX 
BEGIN SI 4-B; 

SUE8-SIZE-I-N; 



BUFFER); 

ds «• a wds; end; 



02560000 

0256J000 
08570000 



NXTCROJ IOCBUFFER INX 0*0240120040000000 )/ 

IF BUFFERt0],t4J443*Q THEN GO TO TOPPER; 
Sl7Ela(SIZE*2Q) 01V 301 ^— 



02580000 
02590000 
025V1Q0Q 



02^00000 
02610000 
26U00Q 



'1:1 

' 1 



401 



45 
4« 
47 
4S 

'V-J 

SO 
a I 
52 
b3 
54 
56 
56 



_T 



12 
13 
| .4 
15 
16 

I '7 
IB 
19 

I 20 
21 
22 



o 
Q 



24 
25 

I » 
27 
28 

I » 
30 
31 



) 32 
33 



34 
35 



36 
37" 
( 38 
39 

40 

\ « 
42 
43 



45 
46 

> « 
48 

49 

I 50 



_0 

_• 

DO 



51 
52 
S3 
54 

55 

_ 



IF CTYPE=*LRN_L 
BEGIN 

SPCI.I1 C31)J 



AND (1+SI„_) GTR MtMDlSKADR) THEN 



L0ADEDt*L0AUED Oh g; 
END ELSE 

IF fTYPF - HERNFI AND ( ME MO! SK AHR + S I _F ) GTR F.SPBnTTQMl THFN 
BEGIN 

SPCUTC32); 

GO F'XlTf 

end; 

temmp :_ buffer; 

buffer >» 44 1 i nx buffer; 



02612000 
02612100 
026 1 23 



02612,00 
02612500 
Q?6l?fi0f) 



02612700 
02612800 
Q26129Q0 



BUFFCRCCJ u IF T YP t*f\ERNf.L THEN 1 ELSE DEC I (MEMDISK ApR )'> 
LOADED := LOADED 0. 

(IF TYPE - KFHNE i - TH E. 1 E L S E 2 3; 



02613000 
02620000 
02*30000 



-&X1XJ- 



IOCBUFFER 
BUFFER »* 



I NX 0, Pi 40000000000000.5 lit 1 27*4216 } )} 
TEMMP; 



026U0000 
026a0000 
Q .6 . 1Q QQ 



end; 

i SET OMIT * NOT COOL 
SA.F PRMCFOliRF RFMnyFan y f 



02660000 
02670000 
02 6 71000 



BEGIN 



VA|,UE U _______ Li 



02680000 
0268999. 

n?6 .nooo 



STREAMCAj_CLABELSCI3J*X»aCL80),L. ADRlsj-CL MEQ 0)x 



BEGIN 55(B_:_HT» "); D3! = U T"*"; DI.1 -MONTHS! 

su*a; x(dsi«_chr;ds;5,it"/"/ DS#=acHR; jump 
s n, s r + i;ns » M7 rn^« u_ ! _ t , [_r___j-j_a r ; __j_4 jus t 



02700000 
02710000 

027.1000 



RMVElDS»*9LIT" 

ci»«ci+l; 
g o n a m; — 



REMQVEDC"; 



02712000 

OUT TO RMVE)>02720000 

' T' C HRJ 027?n200 



NAM, 



GO how; 
go deck; 

UJ-U-UU I T M R ,rt U 



02730000 
02730100 

02730120 



NAHF'SfiQ FlNi 



HOR'»; 



HDK JDS*a7LlT"BAD 

0ECKI0S«»4LIT' , DECK M ; 

FIN »nst-9t TT'M AT AORa"} 



go fin; 



02730140 
02730160 

o?7 3-?nn 



si«=loc aqr; 
end; 

I AHFI „4_U_-S_U_t 



xj«di> d^5-3dec; _psx; cS: = 7fill; 



02730300 
02730400 
„_ 7_osnn 



IF N0T(P1I0 
IO(M0NTHS 
T0( MONTHS 



OR P2I0) THEN IF NOT SPQIG THEN ELSE 

INX 0*l»7400O00000-0GO0Q) ELSE 

TMX ntTF Pi in THfM ____j___ a _j__i____ F L. .F 



02/30600 
027*40060 

02750000 



end; 
enp OMIT 



^640070004000000). 



02751000 

02755000 
02757000 



SAVE REAL PROCEDURE EOM; — — - -___ 

BEGIN 60 TO TIMER END; 

»»»*»» _»»♦_♦»„ ».»--*«„«» »ST ART HE RF»*«»**»*»« »»»»**»» **_*________*_ 

TART l.__OI QX «■ i; GO TO START; 

TIMER «P22»P(INI); GO TO TIMER; % TlM£ INTERVAL 

!.24»_H TG TlMFRj 1 KLYRPAHn KFOUFST 



02760000 
02770000 
27/0 QQ 1 



02780000 
02790000 
0_800___ 



„******-****_*_********cODE 
START!*! P-64.STS); 



!.25»P(22)I GO GLOB; 
»026!P<26); G8 GLQB; 
!.27tPt»l4,L0D.RTM); 
lf!30iPCf>lb. L0D«RTN9i 
»P31 IP(#16. LOD'RTN) ; 
»»32!p(, 17, LUD. RTN); 
!?34IGC TO TIMER; * INQUIRY 



_ 

% 

JL 

*.. 

% 

x 



LPA FINISHED 

LPB FINISHED 

I/O U ________ 

I/O #2 FINISHED 

I/O #3 FINISHED 

I/O »4 FINISHED 



02810000 
02820000 
Q2B30QQ0 



02840000 
02850000 
02860000 



REQUEST 
STARTS HERE*************************** 



02870000 

02880000 
02890000 



029Q0000 
02910000 
02920000 



i 
i 
_ 



tii' 



44 

4'; 

IB 



SO 

51 



13 
54 



^r 



6 
7 

a 

9 
10 

ii 

12 
13 
14 
15 
16 



18 
19 
20 



21 
22 



23 
24 



25 
26 
27 



28 
29 



30 
31 ' 
32 



34 
35 



36 
37" 



41 
42 



46 
»7 



«9 
JO 



52 

53 



55 
56 



DISKTUP «■ -i; 
NuMkDS •= 30; 

CORE * P( •■FOMtl,Q[J) < r33» 1 r i It3? 



STREAM(CORE); 

BEGIN OS * 8 LIT n 0"i 
3?tns «• 3? rtUS); 



si •■ coke; 



END/ 
SHAR Is CM[C&RE3J&3l[6*3B«lQj; 
CORE 8a CHHf, til? - 



LOADER «■ CORE; 

CORE * CORE+30; 

INFO » tMCCOREl3*30tfl*38tlQ3; 



CORE «■ C0RE + 4U; 

FILEH «- [h[CQRE33&30[o»38U03; 

C O R E *■ C Q R E +40; 



FILEX » = [H[C0RElU4&0t8t38M03l 

CORE *« CORE + 4bO; 

larfls » CMrr.nRf3mor8i.*fliTmi 



CORE ♦• CORE + 40J 
READBACK «■ CORE; 
CORE fc C0RE »a Oi 



ZERO « »[M[C0RE3 J&30 [B«38»103» 
C0RE*=C0Rt + itO; 



C0RE»scCRE+310; 
SP0I0«»P(HHR).L22«UJ 
Pl I 0» 8 P(RRR) . [ 2 y » 1 3 J 



* SET OMIT * 



P2I0: 
COOL 

LQWAORigq yq'a vsiqq; 



POP 
SET 



OMIT 
OMIT s 



PCRKR),C26:i3; 

it IMTIAl I>E 



NOT(COOL) 
DlSKI U COf SHAh ); 



FOR I != 13 STEP 5 UNTIL 28 

DO SHARUJ 5* SHARCI + 13 
TMFnroi ts wan; 



1 = O; SCLEAR ALL INT 



INF0C13 ♦ O; 

IOC-CINFO INX U)*?140004000000000); 

SYSNO »= 1NF0[13.[4:2j; %OET SYSTEM 



NUMBER 



* POP OMIT 



firstcard»*true; 
rtiis-i; 



1*0; 

BUFFER 



»* [MCCORE3341U[B»38riQ]; 



JL 



readcaroj card * core; 

IO(CARD»*240000040000000.)J.' 
HANDLE! STREAM tC1»CABD»10)l OS »« ? LIT »*-"; 



IREAD card 



S SET OMIT * 



typei'Scanworocfirst); 
notccool) 

IF FIRSTCARn THFN 



IF TYPE NEQ 10 AND TYPE NEG KERNEL THEN 
BEGIN 

spnuTt?<m 



* PHP OMIT 



end; 



go to error; 



GLOB 1 1 



go typesw1tchctype3; 

if pbintwait then p(rtn) else p(oel); 

qq ti me r; ; 



02930000 
02940000 



02960000 
02970000 
02980000 



02990000 
030000Q0 
3 1 00 00 



03020000 
03030000 
030rt0000 



030b0000 
03060000 
03 0700 00 



03080000 
03090000 
031Q0000 



03110000 
0312000C 
031 3 0000 - 



03130100 
03130200 



03130400 
03131000 

03 13 105 



03131100 
03131299 
31 34 300 



03131401 
03140000 
03110000 



03160000 
03170000 
03180000 



03185000 

031*0000 
Q3200O0Q 



03200025 
03200030 
033000 5 



03210000 
03230000 
03240000 



03250000 

03260000 

,03270000 



03280000 
03280099 
03280100 



03280200 
01280300 
32804QQ 



03280500 
03280600 
03280601 



03280700 
03280800 
03 2 809 Q 






: t ft., 

40 
41 



4fi 

47 
48 



52 
S3 
54 
S5 
S6 
57. 



* 



9 2 

3 
4 

6 

7 

9 
10 

12 
13 

15 
16 

IS 

19 
| 20 

21 

22 
| 23 

24 

25 
) 26 

27 

28 
I 29 

» 

31 ~ 
, 32 



33 

34 
| 35 

36 

37 ~ 
) 38 

39 

40 
I 41 

12 



•3 



45 



I »7 



49 
( SO 






52 
53 



55 
56 



ERHqr: J 



SP0UTC2); 

nn UNTIL PfHRR).r?Al I 1 =, 



DO UNTIL P<RRR),£2«mjJ 

P(64#STS)i 

fig RFACCARD; 



JUL 



03^90000 
03300000 

Q'-iiiooon 



03320000 
03330000 

oaaaoooo 



MEMDUMPI 
XIUADEDI, 



I nAnrR.s: U nan 1 tiAilLB. PXC& 



CARD «= cure; 
go to handle; 



03350000 
033bl000 
3 360000 



REM: 
S SET 



03370000 
03380000 
,0,3,190000 



s 



POP 
5ET 



OMIT s COOL 

— fin error; 



OMIT 

OMIT • NOT(COCL) 

CaJtO-lACX LRO 



03391000 
03391100 
3 39 1 2 



LP* 



I OCCARD* 6*240 00 00 4 0000000); 
STREAM (ClsCARD+ 10); 0Si*2Ur"*' 
IF PC S CNCH p RC) ) NFtt NMM fc lh £ N 



03391300 
0339H00 
3 391500 



IF 



IF HORO NEQ "•" 



PCScN(HORO)) NEQ 
IF RT[RTI]s"STOP 



THEN GO ERROR 

ELSE RTLRTI*»sRTl + l3;*-l 

f . l 8E RT[RTItaHTI » l]inthDROf 

DELIM fHEN 

" THtN BEGIN RTU»RTI-i; GO REAUCARD; 
LI SK GO ERRUR 



03391600 
03391700 
3 391900 



03392000 
03392100 
3192200 



_!£. 



ELSE 
IF HORO NEQ "/" THEN GO ERROR; 
Pr srNf Hnurn > hjfa nm m E ™fm 
IF HORO NEQ M s" THEN GO ERROR 



03392300 

END0339i><iOU 
3 iVaSO O 



03392600 

03392700 
■■0 3392600 



ELSE RTLRTI »=Hri+l];*-l 

ELSE RTrKTTlsHTT*1 T.Bhnppf 



IF P(SCN(H0R0)'[)UP) NEQ PERCENT THEN 

IF P NEQ DELIM THEN GO ERROR 
— ELSE GO LP 



03392900 
03393000 
0339310Q 



* HOP OMIT 



ELSE BEGIN P(OEL); GO REM. 



03393200 

03393300 
03393400 



% 



SYSTEMS: 



SPECIAL ("' 
SHARED] {* 

IF SHARC03 



♦*); 

SCANUMBER 
GTR VDt 



ENO/03393500 
03393600 
03393700 



BEGIN 

end; 



sharcoJ '= 1; 
gc to error; 



SHARtQ] LSS 1 THEN 



03^00000 
0341Q000 
03420Q0Q 



60 TO RE AD CARDI 



03430000 
034A0000 
03450000 



DIRFTTORYTOp 



* SET OMIT 



NQT(COCL) 

IF NOT FIRSTCARD 

BEGIN 



03460000 
03470000 
03480000 



THEN 



end; 



SP0UT<27>; 

go bqmbout; 



03480050 
03460100 
0H4HQ20Q 



S POP OMIT 



03480300 
03480400 
034flQSOn 



disktqp;=scanumber; 
J » nrSKTUP-i-Ki; 



* SET OMIT » NOT(COQL) 

OISKlO(-COISKTOP-SYSNO)#INFa); 

— firstcarqufalse; 



03480501 
03480600 
Q349000fl 



03500000 
03S10000 
03 & tQ 1 00 . 



j 38 I 



43 
45 

46 

47 ( 

48 

49 

50 

51 

52 

53 

54 

55 

i6 



I 

1 

1 

i 



29 



w 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 



19 
20 



21 
22 
23 



26 
26 



27 



28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

♦2 



47 
48 



49 
SO 
51 
52 
53 
54 



55 
56 



* POP OMIT 



GO TO REAJCAttO; 



DIRECT* 



inf0c43 «• sharu3+scanumbenj 
go to readcard; 



03biO101 
03b*O0Q0 
3 5 3.0QQQ 



03540000 
03S5Q000 

nabaoooo 



FENCE J 



SPECIALC" 8 ")/ 

INF0[19 J*eiOO»00-Cf (DUP)-SCANLMBER J DIV 

I F l NF0C l V3<t' 2 n0H0 THhN I NFQ L 12 3 *^0000 



IF INFCtlV]>*>70000 THtN 

go to readcard; 



infoci93«-«<?oqoo; 



1024X1024/ 
Et SE 



03t>70000 
03580000 
03590000 



ESU» 



ESUT£MP:=SCAINUMBER/ 

SFECIAK"*"); 

GO R EAD C A R D ; 



03600000 
03610000 
03 6 20000 



03630000 
03635000 
03600000 



DATEI 



MN «• SCANUMBERJ 

ir mm < 1 hr mm > -is thfw fin tn fr-rhri 



SPECIALC"/"); 

DY «- bCANUMBER/ 
SPECIAU'V' 



03650000 
03660000 
03670000 



-IX 



yr «• scanumber; 

D¥ * MCNTHStMN-lJ+DY/ 
IF YR MOO -fl a ANO 



03600000 
036*0000 
3 7UOQOQ 



HR MHO V60. rf (IS YR Mpp 400 = 0) 



03710000 
03720000 
O373QOO0 



AND MN > 3 THEN UY ♦ QY + l. 
DY «■ YR MOD 100 x 1000+DY/ 
STRFAMCP«-[nY].I«-[TNFOEln); 



BEGIN SI 

Gq readcard; 



* 0; OS * 8 DEC END/ 



03/40000 
03750000 
03760Q00 



USE: 



03770000 
03780000 
03810000 



IF TYPE NLQ 6 THEN XY » ssC ANWCJRU C CP T IONS) 

ELSE XYSS48-SCANLMBEK; 
IF XY=?0 THFr^ GO ERROR, 



TR£AL««i; 

FOR K»»2 STFP 1 UNTIL Xy DO 

TNF0C03 ;»TNF0C03 OR THEALI 



03820000 

03620100 
03830000 



TREAL»*0&TREALCU2*463; 



specialc"*"); 
go readcard; 



03880000 
03890000 
O39000Q0 



03905000 
03910000 
03920000 



FILEl 
4 SET 



OMIT « NOT(COCL) 
GQ TO FRRflR? 



03930000 
03940000 
03950000 



* POP OMIT 

* SET OMIT » COOL 
IF P (SCN( L AB ELS [ ?6' 



IF P(SCNCNJ) NEQ DELlM THEN 
IF P(SCN(1 AREI,SC?9»ID) NES 



ID) new naamf thfn go fRRQR* 



GO error 

ELSE IF N NEC 
NAAMF THFN GO 



03950050 

03960000 

,03971000, 



"/" THEN 

error; 



go error; 



03972000 
03973000 
039 74000 



IF DISKTOP LSS THEN BEGIN SPQUTC6); GO ERROR/ 
FlLEH[0D = (*PCDUP)H3 o [iJ34»14)430[lb«3 3«15]4 

U3 Q »3 6 tl23Ut 42;4 2 t6 3 ; 



end; 



IF P(SCN(ND NEQ DELIM THEN GO ERROR; 

IF P(SCN(FILEHC9])) NEQ NUMBER THEN GO ERRQR; 

I F FILEHH3 GTR 20 TH E N Q O ERROR; 



03975000 
03975100 
39^5 200 



IF PCSCNCNJ) NEQ DELlM THEN GO ERROR; 

IF P(SCN(FILEH183)) NEU NUMBER THEN GO ERROR/ 

I F P(S C N(N) ) N EQ DELlM TH E iN G O ERR O R; 



03976000 
03977000 
397 8000 



IF P(SCN(N)) NEQ NUMBER THEN GO ERROR 

ELSE IF N GTR 999 THEN GO ERROR 



03979000 
03980000 
03981000 



03982000 
03983000 
3984000 



\M 



2 Hi 



40 

.11 

J 4 ' 
J3 

44 

45 

46 

47 

48 

4-1 

SO 

CI 

52 

53 

54 

",5 

56 ' 

5i 



\ 2 
3 

4 

I 5 

6 

7 

9 

10 

t 11 
12 
13 

I M 
15 
16 

I 17 
IB 
19 
20 



21 

22 
\ 23 

24 

26 
| 26 

27 

26 
> 29 

30 

31 " 
| 32 

33 

34 

36 

37 ~ 
| 38 
39 
40 

I 41 
42 



43 
I «4 

45 

46 
I 47 

48 



CO 

CO 

CD 



48 

\ » 

51 

52 
63 
54 



55 
56 

5. 



IK (KlsP(SCMN))) 
REfiTN IF K ISiEti 



= PEHCLM THEN 

ELSE 
DFUIM Thh,h fifi LHhORI, 



IF P(bCNCN)-) NE.fi NUMBER 



k »s\; 

IF P(bCN(N)) NEG 
IF FCbCNCN J ) NKfi , 



THEN 6U ERROR 
ELSE FILEH[03I»(*P(0UP))& 
NM I3fli ian 



039o5000 
039d6000 

navfl7non 



03988000 
03989000 



oelin* then go error; 

nUmBEK ThEN Gw ERROR 



ELSE 

FIl FHEmig{*P(0uPUHtN*3tM 



03Vti9200 
03990000 
399 1Q QQ 



END, 



&CN OIV ^)C30J36»UJ; 
IF PCSCN(N)) NE« PtRCENT ThEN 60 



FlLEWt0Ji«(*P(0UP))4 03992000 

NC15I33I153; 039V2100 

oiv 3nira2tA?t6] n39<;2?nn 



ERROR. 



NI»FILEH[9i; 

FOR K «• 1 STEP 1 UNTIL N 
__ _ — BEGIN C A RP » CORE ; 



039V2300 

03993000 
3 99gQQQ 



DO 



10 (CAR 0*1*2400000 40000000); 
IF SCANWBRDCFIHST) .* THEN 
CAHO ♦, CORE* 



03996000 
04*60000 
QM90QQQ 



GU to error; 



FILEHC9+K] «• 3CANUM8ER; 

SPECIALC"*"); 

IF riiFnr9 + K] LSS i nmnn thfn; 



04200000 
04210000 

042^oonn 



FOR 



end; 

K «■ K 



IF FILEHC9 + K] N£Q DlSKTQP+4 THEN LGWADR ; sFlLEH[9 + K Ji 
STEP I UNTH, 20 UH __^_ 



04230000 

042 40000 
ftii2<tmnn 



FILEHC9 + K3 «• 0* 
FILEH[43»*<»44; 
FTLFHf71 » F lLF H C flJx N' 



04245000 
04250000 
0426000Q 



XL 



I * 1+2; 
DISKIO.CJ-CI OIV 

IF I ' 30 THFH 



042/0000 
04280200 
nii2uonnn 



2)»FILEM>; 



BEGIN DISKIOCJ, LABELS)* 
J «• J + 16; 

I t 



04300O00 
O431O000 
04^QQQQ 



» POP 



GO 
OMIT 



end; 
to readcard* 



04330000 
0434000Q 



RECONSTRI 
S SET OMIT 



04360000 
043/0000 
043/0050 



s NOT COOL 
Rrt«HARf 1»TBIIFI 



GH REAflCARPl 



* SET OMIT s COOL 

go error; 

» RESET DMfT 



043/1000 
043/1100 
043/1200 



REMCOI 
* SET 



043/1300 
043^1400 
043/1500 



OMIT » 



* SET OMIT » 

♦ RFSFT OMIT 



NOT COOL 
RQtwHAROi- 



COOL 
GO TO 



iTPtJFi an REAOfARnr 



04372000 
04372009 
Ofl3720ifl 



ERROR. 



% .1 1 1 J : : t : ; J 1 : « 1 1 : : « 1 : ; » no MORE 
■8T0PI SHARC«3»*INF0£43; 

iwrotiaif lsi 



CAROSt : : : ; t : : : 1 1 : ; : : ( : : : t : : : 1 1 1 1 1 : 



043/2015 
043/2020 
Q43/2 Q21 



IF SPOIC THEN 

BEGIN 

SP0UTC1?); 



04 380000 
04390500 

04395000 



flflMttntn-tt 



KEYIN(l2)i 

IF NQT QKCCMESSAGEC123J. 



04395100 
04395200 
04395300 



INX 0) THEN 



04395400 
043955Q0 
043951*10 



I/, 



'Hi 

n 

■at 



1 5 7) 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



23 



24 

25 



26 
27 
28 " 
29 



30 

31 ' 



32 

33 



34 
35 



36 
37 ' 



39 



41 
42 



45 
46 
♦7 
48 



49 
50 

51 



52 
53 
54 
55 



BEGIN STRE.AM(B: = CMESSA(iE[12]3); 

DS«*24 LIT "CDQl/CQLD START 
S PO U Ttl2 3 i 



ABORTED*"; 



do until false; 

end; 

strfahc Ai»TMrarii]j Svi»0.iyi»rMirsSAr.£r3/]]n 



04395600 
04395700 
04395800 



04495900 

04396000 
043960Sfl 



BEGIN DS;=20LIT"USER OISK BEGINS AJ "; SH»LUC A> 043y6lOQ 

CS» = GL)£C; SV;5ji; Q I : = D 1-8 J DSl«7FlLL; D I * *S V ^ 0439615Q 
DSi?i,TT ,, «-"{ QA___2_Q 



end; 

SBQUT(27)i 

end; 



i SET OMIT 



COOL 

IF C I NFCC *♦ J Ltd OISKTUP 
BEGIN TF SPG 111 THEN 



04396250 
04396300 
04396400 



QK (NS'LOWADH LSS INFUC**])) THEN 



e n d; 



BEGIN SP0UT(62); 
GO 80M80UTJ 



IF N«l THEN SPOUT C65); ENO; 



04397000 
04397100 
Q4397 2QQ 



IF DISKTOP < THEN 

BEGIN 
S PQ U TC 6 J J 



04397300 
04397400 
04397500 



* POP OMIT 



GO TO 

end; 



ERRORi 



04400000 
04410000 
04420000 



IF ESUTEMP LtQ THEN 
BEGIN 

spciutcim; 



04430000 

04440000 

-04440001 



GO TO ERSQRJ 

end; 

share n * DISKTOP; 



04441000 
04441100 
04441200 



i SET QMIT 
a;**** ****** 



IF SHAR[Q] GTR 4 OR SHARCyJ LSS 1 THEN SHARCoJ *° 1 
= NOT CQGL 
LDQK AT SEG ME NT 



04441300 
04441400 
04 450000 



zrRo ********** 



IF SHARC13 GTR 10000 OR SHARtH LSS 50 OR 

SHARC43 GTR 100000 OR SHARC4J L'S'S 50 
THEN RFGTM __2___ ___i an aflMBJlllli L__L 



04460000 
04470004 
Q447OQ0 S 



FOR NJsC STEP 1 UNTIL 29 DO 

IF P(ShARCN]»TOP»XCH#DEL) THEN ELSE 

hfrtm rMiu-RHi*iHiiF; sniBrM»»ni 



04470010 
04470015 
04470020 



ENDi 



04470030 
044/0035 
0447004C 



F0R N;«10 STEP 5 UNTIL SHAR|Qjx5+5 0Q 04470045 

BEGIN 04470050 

IF CCSHARCN1 flR SHARtN+13) AND 337 00000000000000) NEQ Q Q4470O55 



THEN BEGIN FNDERR J = TRUE; SHaR CN ) »*SHAR CN + 1J * *Q; END; 04470060 
IF (CSHARLN+3J OR SHAHtN + 4]) AND 9 3700000000000000 ) NE« 0447006b 
TH E N BEG I N FNnFRH laThllFt SH ft R [ N ± 3 V . sS H h h I M ^ ) I _Q '. fc N pi 0/4470070 



eno; 

if fnderr then spqut(53)j 

%j__ulJl*____ END O F SEGMENT ZERO EXAMINATION 



********** 



$ POP QMIT 

t SET QMIT n. 



04470075 
04470080 
04470065 



DISKI0(0*SHAR); 
NOT COOL 



IF ESUTEMP NEQ 
IF SPOIO THEN 
BEGIN 



INFOC23 THEN 



04470090 
04470095 
04470099 



04470100 
04470105 
Q447Q1 jQ 



STREAMCA!*!NF0[2]>D|*0>Ri«ESUlEMP,C ?»MESSAGE INX 69); 04470120 

BEGIN DI»"DI+3i; SIlsLUc A; CJ"Dl; DUslOC D; DSt»8DEC; 04470130 
DTU L DC Hi n S:»7 F [ LL; Q l tmCi _U___±_ _ THEN SIl«?H + « 0447014Q 



ELSE DSiaCHR); DSt«4LlT w TO "; CteQIi 0i»*LQC DJ D$1»8DEC; 04470 150 
DI*»LQC Di DS>«7FILU.DII»C| SIi»tOC Di 8CIF SC»" " THEN 04470160 
SIU3-1 + 1 ELSE DSfCHRJJ . DSt»LlTM'Ji, 04470170 



1. 01 



4 J 
4j 

HA • 
Hi 

1 47 
|4U 
1<> 
SO 
31 
52 
53 
54 
'J5 
66 
67, 



10 



12 
13 



15 
16 
17 
18 



20 
21 



i 23 
24 
25 



27 
28 



30 

31 " 



93 

34 

i 35 

36 



40 

i 41 

42 

43 



46 

I " 
•8 
49" 

i SO 



52 
t 53 



54 

55 
I 56 



end; 

SP0UTC69); 
SPQUT C llpi 



KEYlN(69)i 

IF NOT OKCMESSAGE 

XWiXJ 



04470180 
04470200 
Q447U21.Q 



I NX 69) THEN 60 BOMBGUT; 



S POP OMIT 
J SET OMIT = 



04470220 
04470230 
04470235 



INF0C2Jl*tSur£MP; 

xom 



04470236 
04470240 
04460000 



POP 
SET 



LABELSC28-I] «• P114; 

LABELSC29-I3 «■ 0> 

FOR Ttafi STFP \ UN T I L C SH AR C m » M nn 



OMIT 
GMIT 



04490000 

04500000 

0lSKI0CDlSKTQP»l.lNiFn)in45lnnnn 



NOT(COCL) 

FnR i;?-7 



STEP 1 UBTIL "4 DQ J I SK lU f PlSKTHF+I # Z&RH ) ; 



x********** 



FOR 1**1 STEP 1 UNTIL 3 DO 01 SKIOCOl SKTOP+I > ZERO ) J 
LOOK AT DIRECTORYTOP ********** 
FNQFRRtsFAl SFI : 



04510050 
045*10000 
04320200 



04520300 
04520400 
045204*50 



FOR I »5C STE'P 1 UM IL 29 UQ 
IF P(INFOCl]*TOP#XCH*.liEL> THEN ELSE 
RFGIK: f NnEHHisTRliE./ TIMFCJCMlsni FHnl 



IF (INF0C23 OIV 100) GTR 10 

THEN BEGIN SP0uT(56); GO 

IF INF0C6 J GTR 97777 THEN 



OR CINFOC23 MOO 
B0M8QUTJ end; 



04520500 
04520600 
04 520700 



100) GTR 10 



begin fnderr»=true; 
if 1nfc[93 lss then 

BEGIN ,FMDERR»»TRur.i. 



X********** 



S POP OMIT 
MRCLEAN? 



if fndepr then sp0ut(56); 
eno of directqrytop Examination 

niSKlQCOlSKTnP-SYSNilf iNFOli 



iNFocyjssi; end; 

INFfU93»«i; ENPJ 



04520600 
04520900 

0< | 5 2 1 00 



04521050 
04521100 
04521 ISO 



********** 



04521175 
04521200 
045213QQ 



N !■. ESPBOTTOM ;*START CLEAN. EiP3ISK 
TF N lSS CniSKTilP-SHAHLOn THEN 



BEGIN ;STR£AM(BlsN*XS»FlLEH); 

begin sijsloc b;ds««9 uec;end; 

- PffQI 



04530050 
04540000 
04550000 



IF (N*=CDlSKTUe-SHAH[0]-N))GE« 63 THEN 

I0CFILEH INX 0,(«140000007700000) 
-EiJi-E- 



04560000 
04570000 
04580000 



I0CF1LEH INX 
N i" P + 63; 

go to mrclean; 



0#?140000000000000dNL27*42J6]); 



04590000 
O46OOOOO 
04610000 



end; 

STREAM (B»*Dl3KT0P+l#x:aFlLEH); 

begin sii'iQc b;ds;ss dec;end; 



04620000 
04630000 
04640000 



IOCFILEH INX 0*^141320000000000 & 
* SET OMIT * NOTCCQOl) 
(IF Rn tHEN 3 ELSE 2 ) t 30 I 45 » 3 3 ) ; 



04650000 
04660000 
04670000 



$ 
S 



POP 
SET 



OMIT 
OMIT 



04680000 
04680099 
04660100 



* COOL 



S 

s 



POP 
SET 



OMIT 
OMIT 



3nu'45»33); 



04660101 
04660199 
0466Q?00 



NOTCCQOL) 
N»((CiNFn U3 -niSKTQP»3? 



MNI«DISKTOP +4; 
YR»=INFQC43; 
TYPEtayNFQf 23xlOOOflOQJ 



01V C35/2))*1A) ♦ Jt 



04660201 

04685000 
na69onnn 



04691000 
04691100 
04691200 



IF P1I0 OH P2I0 THEN BEGIN 
STBEAM(MI»[MESSAGEC533 3); 

BS?»25LIT«CHECK PRINTER FOR OUTPUT*"! 



04691300 
0469U00 
04691500 



■17 
-Ml 



.„.._J^' 



>r 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



40 
41 
42 



47 
48 



49 
50 
51 
52 
53 
54 



55 
56 
67 



SP0UT(53); 

end; 

FOR J».J STFP 16 [INT II N DO 



046V1600 
046*1700 
Q4 /MQQ QQ. 



BEGIN 



NUMWOS »s 480J 
DlSKIO(-( J-lSanFlLFx)/ 



04/10000 
04720000 
047 30000 



FOR 1**0 &TEP 2 UNTIL 28 DO 
BFGIN 
STRFAMf A»gf)«nisCLARFl 5 U ,) 1) / 



04'MOOOO 

047b0000 
04760000 



BEGIN SI»»DMF SC*"0" THEN TALLY;*i; 

SlIsSI + aMF aCX"0" THEN TALLY :»W 
AIsTAl LY? : 



04770000 
04780000 
Q479O00C 



end; 

IF P 



THEN REMUVEtO); 



SM, 



FOR 



1*28 STEP 
IF LABEL 
IF L ABE L 



048U000C 
04810000 
Q 4B2 000 



-2 UNTI 
SCI]«§11 

3cn/ti4 



L 00 

4 THEN 

THEN 



GO QUH ELSE 



04330000 
04840000 
04850000 . 



IF RTI LEU 
IF PCLO 

then d k a i >m 



u THEN GC ON ELSE. 
UKF0R(LAfc)ELStIJ#LA8ELSCI + U)) 



04851000 
04852000 
048b 3 Q 00 



STREAM(At«[LA8ELStI3 3*8lsCMESSAGEC5?J3); 
BEGIN SII«AJ' 5II«SI+U DS»s7CHR; 
DltaDI*i; SIt aS Ui; D S : a 7CHR; 



04854000 
04855000 
ifl56| 



-04J 



i^^Q- 



ENOi 
LABE 

IF N 



LS[n J3P14J 

UrcPllO QJj P^IQJ THEN 



04856500 
04856600 
04856650- 



IF NOT SPOIO 
I0(MESSAGE INX 



THEN ELSE 

59*9740000000000000 } 
ELSE 



04856670 
04856700 
04856750 



IOCMlSSAGE INX 5SMIF Pi ID THEN 
954003000400000U ELSE 
964PQ30QO4QQ00QQ); , 



04856760 
048^6770 
04936780 



END 



ELSE 



O N * 



B F GIN 



04857000 
04858000 
04860000 



IF CLABELSCU EQV "DECK 

BEGIN 

IF ttDJ HARD 1HFN BFGIN 



")=NOT THEN 



04869000 
04869200 
04869400 



IF SPQIO THEN 

BEGIN 

SPQUTC2Q)/ K E Y INC2Q,3f 



04869500 
04869550 
QA8696QQ 



rd1*qkumessage[203] inx 0)/ 04869800 
hahoi»thue; 04870000 

ENp; . ___ 04870100 



end; 
if rd then 

IF ({LAbELSII+13 ANO 977000000007777) EQV 



04870200 

0487'0400 

.5 ,48800 



ei200oooooo37i«)=Nor o then 

BEGIN 

LAHELSCI+l3»(H(DUP*L0D) AND 



977777777770000) OR 96060? 



04890000 
04900000 
049^0000 



REMQVE(2>; 

end; ^ 



04920000 
04930000 
04935000 



END 
SKE 



DT0GS*LAUELSri3.[6:24Js"FlLE" AND 
tLABELSCl+13 EQV "SCHEDUL" )sNUT o; 



04940000 
04941000 
04942000 



LEH J« <(NuMW0S*»Ixl5)INx f ILEX)&30C8»38J103;04950000 

04959000 
l£ , . 04960000 



FI 
K t » 
F 1 1 1 H [ 9 3 1 m C t f , < PL P ) I AN Q ; ,3 1 i 



.!■" 



4S 
■Mi 
47|' 
48 

SJ 
SI 
52 

h).1 



*r 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
l Z0 
21 

n 

23 

24 

25 

! 26 

27 
28 

! 29 
30 

31 



33 
34 

I 3S 

36 

37 ~ 
| 3B 

39 

40 

I « 
«2 

»3~ 



46 
46 

I 47 
48 
49 

\ 50 
51 
52 

! i3 
54 

55 
I 56 

5Z 



STREAMCT*0«FILEH); 04WOO0O 

BEGIN SI«-FIlLh; 30CIF Sb THEN BEGIN TALLY*l; O4V6OOOO 

JUMP QuT END Ft SE S« + Slt8?i TOTALLY/ 04 990 000 



end; 

if p ok(k gtr 20) then removccu* 

FOR T«*K+9 ftTgP »1 UNTU 10 DO — — 



05000000 
05010000 
050 2 000 



IF CDYJsFILEHLU) KEC< C THEN G50J0000 

IF UY iitQ TYPE OK 05040000 

flJY Lir'.Vi YR AND f) Y GTR MN) THFN HEMQvECUJ 05050000 



dy«=o; 

FOK TI 

BEGIN 



'10 STEP 1 UNTIL 2» 00 



OY»sDY+CxY;s(f ILEH173 NEQ 0))» 

IF T GEO- K+40- THEN IF XY THEN 



05059000 
05060000 
050 6 1000 



T l * 3 1 ; 



enj; 



05062000 
0506300C 
050 4 000 



*»»»♦»»»»»♦ RFf.nMST.»>lf!T 



IF C(T»31) OR CDY GTR K; AND NOT SKEDT06) OR 05065000 

(DY NEQ AND FlLEHt8i«0> THEN REM0VEU>> 05070000 

RAT) HEADERS *»«**»*»»*: 1 :. M ; " ; ; 050/Q005 



IF (H0R0?3FlLEHCG]).H!l/4]=0 OR BLOCKSUEsO 

RECSPERBLOCKaC OR SEGSPLHBL0CK=O THEN 
BE GI N ; : , ^_ 



U.R. 



IF NOT HARC THEN 



BEGIN 
IF SPOIO 
B EGIN 



050/0010 
05070020 
50/1 . 3 



THEN 



SPUUTC40); KEYlN(aO)/ 
RC'sO'UCMEbSAGEUOJ J IfriX Q)i 

harc ; = tr u e ; , 



050/0040 
050/0045 

OSU/OQ47 



05070050 
050/0060 
0507 70 



eno; 
end; 



IF RC THEN 



BEGIN IF SEGSPERBLOCKsO THEN 

BEGIN IF RECSPEHBLOCKso THEN 
HFKTN 



050 70075 
05070080 
05070090 



IF REC5IZ£*Q THEN GO PUNT; 
IF BL0CKSI2E«0 THEN GO PUNT; 
RECSPERBLOCKIsBLUCKSlZE OIV RECSlZEl 



05070100 
05070110 
050V017Q 



SEGSPEHbL0CK*»CBLQCKSl7.L + 29) 

END 
ELSE 



DIV 30; 



05070130 
05070140 
05070150 



BEGIN 

IF BLOCKS JZE«0 THEN 
TF fUCSIZEsO THfm flfl' PUNT 



05070160 
05070170 

oso/mao 



050/0190 
05070200 
05070210 



ELSE 05070220 

BE9IN BLOCKSIZEJ=RECSpERBLQCKxRECSlZE; 050/0230 

8EGSPERrti.nCM«(flL0CKSlZE + g9) DIV 30/050/0240 



END 
BEGIN 



ELSE 



HECSIZEibBlOCKSIZE OIV fiECSPERBLQCKJ 

SEG f iPt.RdLUCK5s(BLQcKSlZE + 29) DIV 30; 

-INC 



05070250 
05070260 
05070270 



050/0280 
050/0290 
050/0300 



END 



END 



ELSE 



BEGIN 

BLOCKS I ZE: = SEGSPE«BLOCK 

IF RECSUEsO THEN 



05070310 
05070320 
Q 5P7033Q 



30; 



IF RECSPERBLOCtUO THEN GO PUNT 

ELSE 
RECSIZEf ttLQCK-SlZ£ Ply RECSPERBLOCK 



05070340 
05070350 
05070360 



05070370 
050/0380 
05070315 



2h 
L'9, 



45 
16 

1; 
18 
V.I 
SO 
C1 
52 
M 



>r 



I 2 

3 
4 

> 5 

6 

7 

^ 8 

9 

10 

12 
13 
>,4 
IS 
16 

18 

19 
l 20 

21 

22 
| 23 

24 

25 
| 26 

27 

28 

I K 
10 

31 ~ 

I 32 
33 

34 

I 35 
36 
37 ~ 

i M . 
39 



40 
41 
42 



43 



45 
46 



I »7 



end; 

FI L LHtOJtrHDUO; 



ELSE KECSPEH8LDCK;«bLCiCKSlZt DIV KECSl2E» 



go arnd; 

PUNTt BL0CKSIZE«»30; 
RETST7FH30I 



050/0390 
050/0400 
Q5Q7Q/iOS 



ARN0 { 



RECSPERBLOCKIMJ 
SEGSPERBLCCKl»i; 

FH.EH[Q]agH0RO; 



05070410 
05070420 

oso/oaas 



050/0430 
050/0435 
05070HH0 



IF NU«WDS NEQ THEN ESyTEMP : «FlLEXCNUMfcDS«l J; 

msKin(j«is*(i civ ; ?),FiLExrNiiMwn<n;t; 



if numw.os 
end; 
STRLAM(a; = [lahfi srm,HS!=ei gck&IZf»rsi 



NEQ C THEN HLtXCNUMWpS-1 ] I aESUT tMP; 

RKC31ZE>RPRt-KFCSHFHRl fl PK* 



050/0450 
050/0452 
050 70 4 5 H 



05070456 
050/0460 
050/0470 

._..._._ . . 05070480 

BEGIN SJ1»A; Sll-bl+.lj D1I*B; DSf = 7CHR; Dl»aDI + l; 5II-5I-+1J 05070490 

PSWCHR; DlfaOl + fl; SIuldc bs; n suSDEO svupn di*»di-5; nSJTi 



SPBl«SEGSPFRBL0CK#SVi»0>et«t'MEbSA6EC453 1 }i 



0SI-4FILL; 

ds**4fiil; 

DS»«3FTLL; 



UU*SV; ul!«UX + 8; D6:=5DEt; SV**i)l; Ul»»DI"5; 
0I:=SV; Dl:s01+6; DS<s4DEC; <jV:=DI/ DI:sDI-4; 

ut;*SV; ni:*ul+6, n S; = pnfct R H« hi - g - ; n suniif 



end; 
if n0tcp1i0 or p2j0) then if not spoio then 

TfUMFSSAfir tnx as .P7iinnrinnnnnnrH)Qm n s £ 



ELSE 



IOC.MESSAGE INX 45, IF PlIO 



-&WJJ- 



THEN P5ti0lU0004000000 
ELSE ^640100004000000); 



050/0510 
050/0520 
Q507Q530 
050/0540 
05070550 
050705< e >n 



% *****.***** 
REMOVED* 



End reconstruction- code ********** 



050/0570 
050/0580 
050/0590 



end; 



QUITS 



DlSKIU(j»UA«tL5)i 

end; 

uA BE c. S [ 0]»PU< i * 



05070600 
O5O71000 



osoyoooo 

05100000 
05 i 'I 0000 



IF PlIO OR P2IU THEN IQ(0*«'440004000100000S 1 ( IF PlIO THEN 
8-1 FI.SF &2JXJLL4-6J-2JJJ 



* POP UMIT 

DISKIQ(J,LAHELa); 
FOR I + STFP 1 UNTlu 



05120000 
05120010 
0S12QQ9O 



IF SPOIO THEN 
SPOUTCO)! 
QX » 08 



29 UU INFQL I I <- 0; 



05120050 
05130000 
05160000 



10 (LOADER*? 240000540000000); 
IF QX X 2 ThFN 

STRFAMCL-I Q AfU-R . A* 16 j ; UhfilU 



05160100 
05170000 
05180000 



S1»U; i^*2j WQS END 



05190000 
05200000 
5 2 1 000 



EI * SE 05220000 

STREAM(tOAOBUTTON#A«-?20); BEGIN S f *L0ADBUTT0fcJDS*l5 WDS END;0523QQOO 
PfO»STSfOfSTF)< ___QS2iL0ilOJl 



ENQ 



go to tart; 
do until false; 
warm loader, 



05250000 
05260000 
05270000 



Liu 



4/1 
48 




>r 

3 
4 

> 5 

6 

7 

9 

10 

> » 

12 

13 

| 14 

15 

16 

I " 
18 

19 7 

21 
22 
i 23 
24 
25 
26 
27 

3 

29 



LABEL OOOOOOOOOPRlMEKOOl/blOOCC L* OR jfC I /RE AD; f ILL St)URCEFILE«SYMBOL/CUCL*00*0000000 



OBJECT /REAO 









44I 

49 

1 1 1 



50 
SI 



